home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / spooler2.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  20 lines

  1. 10 PRINT"[147]":POKE53280,0:POKE53281,0:PRINT"[158]"
  2. 20 PRINTTAB(13)"LOADING DATA..."
  3. 30 FORI=49152TO49232
  4. 40 READX:POKEI,X:NEXT
  5. 50 PRINT"[147]":PRINT"PLEASE MAKE SURE PRINTER IS TURNED ON."
  6. 60 PRINT"":PRINT"PLEASE ENTER FILE NAME EXACTLY AS IT    APPEARS ON THE DISK."
  7. 70 PRINT"":INPUT"FILE TO PRINT";A$
  8. 90 SYS49152,A$
  9. 100 PRINT"[147]":PRINT"YOUR COMPUTER IS NOW FREE."
  10. 110 PRINT"YOU MAY TYPE (NEW) TO ERASE THIS PROGRAMOR (RUN 50) TO USE IT AGAIN."
  11. 120 PRINT"IF THE DRIVE LIGHT IS FLASHING THEN YOU EITHER MISSPELLED THE FILENAME.."
  12. 130 PRINT"OR THE FILE IS NOT ON THIS DISK."
  13. 140 PRINT"WHEN PRINTING IS DONE, TURN PRINTER OFF TO CLEAR THE CHANNEL."
  14. 150 PRINT"WHEN PRINTING IS DONE, TURN DISK DRIVE  OFF TO CLEAR DRIVE CHANNEL."
  15. 160 DATA 32,121,0,240,58,32,231,255,32,84,226,166,183,240,63,169,2,162,8,160
  16. 170 DATA 2,32,186,255,32,192,255,169,4,32,177,255,169,96,9,7,32,147,255,32
  17. 180 DATA 190,237,162,2,32,198,255,32,190,237,32,133,238,32,151,238,169,0,133
  18. 190 DATA 152,133,153,96,169,1,133,152,32,174,255,32,171,255,169,2,76,195
  19. 200 DATA 255,76,8,175
  20.